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ABSTRACT 


A library subroutine named PREFORM has been developed for use on 
the PDP-11/10 computer. This subroutine can be accessed by user programs 
to process data stored on disk or data entered at the computer terminal. 
The use of FREFORM eliminates the need for format statements in programs 
which process or use such data. More importantly, restrictions on the 
data format and syntax are greatly reduced. 
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SECTION 1 
INTRODUCTION 


Subroutine FREFORM can process data which are relatively 
unrestricted in format and syntax. Thus, it can be used in place of the 
usual formatted I/O statements. The objective is to simplify user 
programs while at the same time enhancing the efficiency of terminal 
use. FREFORM differs from conventional processing algorithms in that it 
is highly flexible. (NAMELIST, for example, is intended primarily for 
batch mode, and requires user knowledge of variable names.) FREFORM is 
designed specifically for users of NRL's Data Acquisition System. 

The usefulness of FREFORM can be illustrated with a simple 
example. Consider the input data sequence, 

SH0T^4395^SI02 ^1.000E+03 ^4.000E~02 J.142K+00^ 233, 

entered by a user at a terminal console. (The * symbol will be used to 
explicitly represent a blank, or space.) The conventional program will 
contain format statements contracted specifically to read such data 
strings. To read the data sequence above, the user's program might 
contain the following statements: 

RKAD(5,100)ALFA,NSH0T,HETA,(COEF(1),1=!,3),I 519 
100 F0RMAT(1X,A4,1X,I4,1X,A4,3(2X,EI0.3),I5) 

Execution of this read statement will cause an ASCII representation of the 
word "SHOT” to he stored in the central memory location referenced by the 
word, ALFA. Similarly the integer value, 4395, will be stored in the word 
referenced by NSHOT, et cetera. Of course, if the data entry is made 
incorrectly (e.g., the wrong spacing, use of F- rather than E-format, et 
cetera) the result can he catastrophic If not recognized and corrected. 



As an alternative, this same user program might contain the 


statement: 


CALL FREFORM(VALU.NVAL). 

In this case, execution will result in the representation of "SHOT” stored 
in VALU(l), the integer, 4395, stored in VALU(2), et cetera. This alter¬ 
native is clearly simpler for the programmer. However, the real virtue of 
this approach is that the user at the terminal console is no longer 
restricted to any exact format. Thus, equivalent results will be obtained 
from the data sequence, 

SHOT 4395,SI02,1E3 .04, 3.142 235. 

AAA A A A /V 

Note the (arbitrary) insertion of commas and/or blanks as well as the 
varied syntactical forms in this second data sequence. Acceptable varia¬ 
tions are limitless in number. Thus, FREFORM frees the user from the 
necessity of remembering and exactly reproducing program formats. 

The remainder of this report is organized as follows. Section 2 
explains how FREFORM functions in normal and test modes, the method in 
which data is processed, and the simple rules for data syntax. Section 3 
discusses implementation on the DEC-10 and the PDP-11/10 computers and 
presents results obtained from an actual run using the test and diagnostic 
algorithms. Flow diagrams for the test algorithm (TESTFF) and the 
processing algorithm (FREFORM) are presented and explained in Section 4. 
The complete FORTRAN listing of both algorithms as implemented on the 
DEC-10 is reproduced in Section 5. 





SECTION 2 

HOW FREFORM FUNCTIONS 


2.1 THE NORMAL, TEST, AND DIAGNOSTIC MODES 

2.1.1 Normal Mode 

The subroutine, FREFORM, exists as a library subroutine on the 
PDP-11/10. As such, it can be accessed by any user program which requires 
data. Such data might reside on disk, but more commonly would be entered 
by a user from the terminal console (VT55). Thus, FREFORM provides a 
means of entering input data to the computer. 

A typical application is illustrated schematically in Figure 
1(a). This example consists of a main program and four subroutines, three 
cf which require input data to be entered from the terminal. The command 
sequence subroutine would be used to enter key words specifying operations 
to be performed by the program. Additional data (either "A" parameters or 
”B” parameters) might be required depending upon the specified 
operations. In all cases, the commands (alphanumeric words), parameters 
(integer, fixed point, and floating point numbers) and comments 
(alphanumeric text) can be entered simply from the terminal in response to 
queries from the input subroutines. Data so entered will automatically be 
processed by FRF.KORM. 

2.1.2 Test Mode 

A main program named TESTER is also available on the PDP-11/10. 
This program Is designed to validate and demonstrate the performance of 
PREFORM. Tills mode of application is illustrated schematically in Figure 
Kb). 
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(a) A Typical Program Application in the Normal Mode. 



(b) Application in the Test Mode 


Figure 1. Application Modes for PREFORM. 











TESTFF allows a user to enter a string of data at the terminal 
in an arbitrary format. This data will be processed by FREFORM, and the 
interpreted values will be returned to the user (printed) at the 
terminal. One of the restrictions on use of TESTFF is that all of the 
values returned from each sequence string will be printed according to the 
same format specification. Thus, all of the values submitted in each 
sequence string must be of the same data type. Of course, this 
restriction does not apply to the normal use of FREFORM. 

2.1.3 Diagnostic Mode 


Subroutine FREFORM contains a system diagnostic mode. It is 
activated by altering a data statement in FREFORM so that the variable, 
1TST, is set to unity rather than zero. The diagnostic mode causes a 
listing of all system-dependent parameters and ASCII character variables 
to be printed on the first call. Subsequently, all record images and 
process strings will be printed prior to translation. This mode is 
extremely useful for implementing the algorithm on a new system, or for 
analyzing anomalous results. 

Results from an actual run using the test and diagnostic modes 
are presented in Section 3. 

2.2 DATA PROCESSING 

In the normal mode, a sequence string of data will be supplied 
by the user in response to a query from the user program. Following a 
call to subroutine FREFORM, the processing of this data occurs in four 
major steps: 

(1) A record image (usually 80 characters) is read into an integer 
array, JC1M. One character is placed in each array element. A 
new record image is obtained when all of the characters ori the 
previous Image have been processed. 



(2) Each character in JCIM is tested against each of the four string 
delimiters (see below) and possibly stored in an integer array, 
JCST, which contains the process string. One character is 
stored in each array element. When a delimiter is detected, 
testing stops and processing is initiated. 


(3) A test is made to determine whether the process string contained 
in JCST is a numerical value or an alphanumeric character 
string. 

(4) The contents of JCST are interpreted and then stored in the 
array, VALU, by either a number decoding algorithm or a 
character string packing algorithm, according to the result of 
the test. The array, VALU, is returned to the calling program 
unit (user program) when the entire sequence string has been 
read, translated, and stored. 


DATA SYNTAX 


2.3.1 


The Record String and Other Definitions 


The total set of data to be processed by FREFORM may be regarded 
as one contiguous string of characters, referred to as the record string. 
Four special characters embedded in the record string - the slash, the 
comma, the asterisk and the blank - serve as delimiters. Except for the 
special case discussed in the next paragraph, all image boundaries in the 
data are ignored. 


Each call to FREFORM will process a certain amount of data 
referred to as a sequence string. The length of a sequence string can be 
varied by two different methods. With the first method, the sequence 
string terminates whenever a slash delimiter is encountered in the data. 
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This method is useful when processing large, structured strings in the 
batch mode. The second method, which is more useful in the iteractive 
mode, terminates the sequence string when it contains a preset number of 
record images. (This preset number is contained in a data statement which 
initializes the variable, NIPS. For terminal applications, a value of 
unity will cause the scope line (one record image) and the sequence string 
to be equal. Then each line on the scope will be processed separately, 
without the need to type slash delimiters to terminate the sequence 
strings.) 


Within the sequence string, individual data are delimited by 
blanks, commas, or asterisks, as indicated in the discussion of data 
types, which follows. 

2.3.2 Allowable Data Types 


FREFORM allows four types of data: 

(1) Numerical Constants - Rational number constants are 
recognized in fixed, integer, and exponential formats 
(examples - 143, 3.14159, l.E-07). Data must be 

separated by space or comma delimiters. Nonessential 
characters will be automatically supplied during inter¬ 
pretation (thus, for example, IE-7 and I.0E-07 will be 

* interpreted identically). 

(2) Alphanumeric constants - Alphanumeric constants are 

recognized by the first character, which must be alpha- 

* betical. Succeeding characters may be alphabetical, 

numerical, or may be any ASCII special character other 
than the slash or asterisk, or the system-dependent 
control characters (examples - A123, Z$45, START). Data 

* must be separated by space or comma delimiters. 
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(3) 


Null Values - A null value is created by recognition of 
successive commas, with no intervening characters. 

(Blanks, or spaces, between adjacent commas will be 
ignored. For example, the character string (, ,,) will 
produce two null values.) 

(4) Text - Any character string delimited by two asterisks 
(at beginning and end) will be recognized as text, and 
will be retained intact with embedded spaces, commas, 
and all ASCII characters (except the slash and 
asterisk which would terminate the string, and the 
system-dependent control characters). The text will be 
coded in as many words as are required to process the 
string. 

The number of characters devoted to a single numerical or 
alphanumeric constant may not exceed the value of the variable, NCPS. If 
the number of characters in any delimited data value exceeds NCPS, a 
delimiter is assumed after every NCPS characters in the data, beginning 
with the leftmost character. (For example, with NCPS = 4, the string 
" 2345.67891E-23 " would be divided into four values: "2345", ".678”, 
"91E—", and "23".) Thus, if one of the values represent an incorrectly 
formatted numerical constant, an error will occur, as described below. 

2.3.3 Error Analysis 

PREFORM is Intentionally tolerant of varied syntactical forms. 
However, two types of errors which can occur in the formation of a 
numerical constant are recognized. 








(1) Syntax error in the mantissa - Any data entry (excluding text 
delimited by asterisks) beginning with a nonalphabetical 
character is assumed to be a numerical constant. If this 
constant cannot be interpreted, a syntax error results. 
(Examples: 25.00F+02, -H-15, &STRING) 

(2) Syntax error in the exponent - The exponent of a floating point 
numerical constant must be an integer value. (It may include an 
algebraic sign). If an exponent cannot be interpreted, a syntax 
error results. (Examples: 2E2., 2EE3, 2E-I) 

For these two cases, a blank value will be substituted for the 
data entry, and an error message will be printed. A typical error message 
is shown below: 


******** ERROR DETECTED BY SUBROUTINE FREFORM IN RECORD IMAGE 5 ********** 
TEXT HERE IS AN ERROR DIAGNOSTIC 25F/ 

COLUMN: 36 PROCESS STRING: 25F 

*************************************** *********************************** 

The message contains information helpful in locating and 
analyzing the error. The first line gives the number of the record image 
on which the error was encountered. Images are numbered sequentially 
beginning from the first call to FREFORM. The second line reproduced the 
first eighty (80) characters of the image. The third line identifies the 
column number of the entry and reproduces the numerical value of the 
process string. 
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SECTION 3 


IMPLEMENTATION AND TESTING 

3.1 SYSTEM-DEPENDENT PARAMETERS 

Data is read from a file with logical unit number 5. Thus, 
input data from an I/O device (such as a card reader or console) will be 
processed if the logical unit number 5 is assigned to the input file by 
the calling program, or if the logical unit number 5 is associated with 
the I/O device by the system. Output is written to a file with logical 
unit number 6. Thus, messages will be sent to a printer if the logical 
unit number 6 is assigned to the output file by the calling program, or if 
this association is made by the system. 

In addition, certain parameters and ASCII character variables 
arc defined in data statements in FREFORM. Parameter values suitable for 
the DEC-10 and the PDP-11/10 computers are given in Table 1. In general, 
these parameters must be selected for system compatibility as well as the 
intended application. The parameters NCIW and NCRW (number of characters 
per integer word or real word, respectively) are needed to pack character 
data and to decode numerical data. The parameter NCPS (number of 
characters per process string) determines the length of the largest 
numerical constant which may be processed; NCPS should be small enough 
that numbers beyond the range of the machine will not be accepted. Since 
NCPS also determines the length of the largest alphanumeric constant which 
may be processed, it is often convenient to make NCPS some integral 
multiple of NCRW. (Note also that the length of the .JCST array must 
always be greater than NCPS. This prevents overflow of the array and 
ensures the existence of at least one blank at the end of every process 
string.) 
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TABLE 1 

SYSTEM-DEPENDENT PARAMETERS 


Parameter 


DEC-10 


PDP-11/10 


NCIW 


5 

NCRW 


5 

NCPS 

• 

20 

NCPI 


80 

NIPS 


1 


2 

A 

20 

80 

1 


I 


11 


t 









The proper value of NCPI (number of characters per image) 
depends on the file or I/O device from which data is read. A large value 
may be useful when reading large sections of text since all of the text 
can be returned at one time. Setting NIPS to unity, however, makes each 
sequence string exactly one record image in length. This choice is more 
suitable for terminal applications, since it allows the operator to omit 
slashes from the data sequence. 

THE ASCII character variables are used by FREFORM for comparison 
tests. JCSL, JCAS, JCSP and JCCO are used to identify delimiters. JCMI, 
JCPL, JCAE, JCDP, JCNI and JCNF are used to identify parts of a numerical 
constant. JCAI and JCAF are used to determine whether the first character 
in a process string is alphabetic. The bits containing the character in 
each of the character variables must occupy the same position within the 
machine word as they do in the storage arrays JCIM and JCST for the 
comparison tests to function correctly. The diagnostic mode in FREFORM 
can be enabled by changing the value of a flag (ITST Is initialized in a 
data statement) from zero to unity. This will result in a listing of the 
system dependent parameters when FREFORM is first executed. In addition, 
all data processed in this mode will be listed at various stages of 
processing. This diagnostic capability is provided to aid in 
implementation of FREFORM on a different system. An example of its use 
follows. 


3.2 TESTING WITH TESTFF 

The main program, TESTFF, is intended to provide demonstration 
and validation capability. It allows a terminal operator to send data 
sequences to FREFORM, and to immediately inspect the processed results. 

To use TESTFF, the type of data (see Section 2.3.2) must be 
speefied by a keyword at the beginning of each sequence string. (If the 
data type is not specified In the first sequence string, program execution 


i. 




is terminated.) Once a data type has been specified, all sequence strings 
are assumed to be of that type until a new type is specified. TESTFF 
recognizes three data type keywords: "INTG", "FLTG", and "TEXT". Program 
execution is terminated by the keyword, "STOP”, which must occur at the 
beginning of a sequence string. Any data following the word "STOP" will 
not be printed by program TESTFF. 

Table 2 presents output from a sample run in the diagnostic mode 
made interactively from a terminal console. Note that the output 
originates both from TESTFF and from FREFORM (diagnostic mode). The 
source is clearly indicated by the headers at the beginning and end of 
each section of output. 

The first execution of FREFORM (diagnostic mode is enabled) 
produces a listing of the system-dependent parameters and ASCII 
characters. In the first example, the data sequence begins with the 
keyword "TEXT". Diagnostic output from FREFORM shows the actual process 
strings, while the TESTFF output lists the representation of each word in 
the array, VALU. Thus, characters representing the word "TEXT'" are 
stored in VALU(l), and so forth. 

The second example differs from the first in that alphanumeric 
text is used (asterisk delimiters). Note the embedded blanks, commas, et 
cetera in the processed output. The third example involves integer 
numbers. Note the representation of a null value, produced by two 
adjacent commas. Floating point numbers are processed in the fourth 
example, which includes a deliberate error (5F2 is syntactically 
unrecognizable). The resulting error message would have been produced 
even if the diagnostic mode is disabled. 

The final example consists of three sequence strings of text. 
(The first two are delimited by slash characters.) Note that the integer 

I i 







value, 2, In the second string is correctly interpreted by FREFORM, even 
though TESTFF attempts to print the result in a text (alphanumeric) 
format. The final sequence string contains the keyword "STOP", which 
terminates execution of TESTFF. 



TABU- 2 

OUTPUT FROM SAM PIT'. HUN’ OF ]• UKi-OKM 
J A THU DIAGNOSTIC MODI-; 


mtsntnnttuntnnt program testff - march i?si ttnnttntuu 


tnnsitztznnnnnnn subroutine frefor diagnostic ttttzttnttntnttnitzix 

ASCII CHARACTER VARIABLES 


jcae jcaf 

■JCAI 

JCAS 

JCCO 

JCDP 

E 1 

A 

* 

i 


JCMI JCilF 

JCHI 

JCPL 

JCSL 

JCSP 

9 

0 

4* 

/ 


SYSTEM-DEPENDENT PARAM 

to 

LU 

1— 

UJ 



NCI1! NCRU 

NCPI 

NCPS 

NIPS 


S S 

80 

20 

1 



tttnznnnntnnunnnntn end diagnostic 

TEXT ALPHANUMERIC CHARACTER STRINGS: RUNS 2123, ATcSYhBGL 

subroutine frefor diagnostic zttmnntmnunntn 

SEQUENCE STRING: 1 RECORD IMAGE- 1 

TEXT ALPHANUMERIC CMARACTFR STRINGS- RUMS 2123, AT8SYMBGL 


COLUMN: 

t 

PROCESS 

COLUMN: 

10 

PROCESS 

COLUMN: 


PROCESS 

COLUMN: 

33 

PPOCESG 

COLUMN: 

13 

PROCESS 

COLUMN: 

■19 

PROCESS 

COLUMN: 

r r 

_/ w 

DL H 

t FJjLl j j 

;:n!:i 

r?Si 

rXUiitt 

; * r * * ♦ * 

•f-r 

•• ttt'.Tt 


mi it zi r'tiiztitmmuti’.tt m End DIAGNOSTIC '.ttuuttuituunitiui-.titut 








Ci':U . 


TEXT 

ALPHA 

HUMER 

IC 

CHAPA 

CTEF. 

ST RIM 
GS: 

RUMS 
2i 23 
ATQST 
HBOL 

tniiuitmtmtnsttit end output from, program testff nntmnu%\nn%ztm 

tTEXT STRING TJITH EMBEDDED BLANKS, COfiHAS, SPECIAL CHARACTERS 4 NUMBERS ! 70 P'S 

tinttztittztnntttnttz subroutine frefor diagnostic ntnnznnnttmtzmtt 

SEQUENCE STRING: 2 RECORD IMAGE: 2 


tTEXT STPIUG WITH EMBEDDED BLANKS, COMMAS, SPECIAL CHARACTERS 4 NUMBERS ! 700* 

COLUMN: i PROCESS STRING-. TEXT STRING lilTH EM3 
COLUMN: 21 PROCESS STRING: EBDEP RANKS, COMMAS 
COLUMN: 41 PROCESS STRING: , SPECIAL CHARACTERS 
COLUMN: 62 PP0CC23 STRING- 4 .MUMPERS ! 700 


ttttttfKttrttttzitiitzttnuttt end diagnostic tmtttttmstmttmttttmttt 


MtZStMMlzV 


nt OUTPUT FROM PROGRAM TESTFF tttniUMmitt !*?««*» 


TEXT 
STIIM 
C HIT 
II EMB 
E DOr J 
TLf.U 
KG, C 
DUh-T 
, SPF. 
Cl AL 
[HARM 
lTEP.5 




TAE'.il 2, Ciuit . 


» 


> 


I 


HDERS 

i 7 

CU 


tmnnnnnnnntm eud output from program testff ntttunmti'tvMttm 

INTO 700 £>G0, SOO, ,300 

tntttnmntmitttnn sui.?.outike fp.efgr diagnostic 

SEQUENCE STRING: 3 RECORD IMAGE 3 


2M7G 700 fcOO, SOO, ,300 


COLUMN; 

i 

PROCESS 

STRING 

INTC 

COLLMM: 

10 

PROCESS 

ST? IMG 

790 

CGLG1-M: 

IS 

PROCESS 

ST? 

INC 

in, 

COLUMN: 

So 

PROCESS 

ST:; 

IMG 

SOO 

COLUMN ■■ 

27 

PROCESS 

ST? 

INC 


COLUWI: 

00 

PROCESS 

STT. 

IMG 

300 


tf->4t****'iv* 


DIAGNOSTIC %ntZttiUi.tZtUtZnUiUUUtti 


iminnttntuzimn%3% output ffc.t progsa.1 testff 


ItlTG 

7HD 

fcOO 

SuO 

303 


tttnntiintumtutn run output fron prog 

n.TG - 7 E+ 902 , in SEP SF 2 209 

jmnmtmimmmm sw-rchti*-: mm :• 

SET ;r.HCE ST'Tr G- T ?r.CCR!' IM-V'.E I 

fi. if -:~nn, in :n r n m 

C Vi.'.—J 
C: IS—* 

I. . .. 

CV, ■:< 



RAM 


TtSTTr ^11**• v*tt^*11**.** }t*$>t 


gst ir. nTtiumnnttmit u?t 













TABLE 2, Con;. 


COLUnlL 36 PROCESS STRING •• SF2 


nntttznt error detected by subroutine fpefor in record ihage 


'l ^ v % -t * * ^ J ’ ^ If 


FLT C 


- 7 E+ 0 C 2 , 


SE 2 5 F 2 


238 


CCLUrtH: 3fe PROCESS STRING-. SF2 

ustismnmmmmnmzntznnsiwmnmtmnntmtntnnnmnzn 


COLUMN•• 43 PROCESS STRING. 300 

... •.• * »• S- ■* *• *t * <!• 'P •< 


nnmtutttutnnnnn output from program testff linxnztnmmztttmx* 

FLT G 

- 0 . 700 DG 0 E+D 3 

o.feosnnoE+03 

0 . 50 D 0 GCEM 3 

0 . 2 C 00 QCE <-03 

Uitntnuunumttu Frio output from program testff ««««»«»*«««»« 

TEXT THREE ScCUEMCt STRINGS / HERE IS MO. 2 / STEP 

tiiitwtuiumtnm-x subroutine frefor diagnostic mnmtttmttutmm 

SECIJ2i.CE STRING. S RFCCRD IMAGE 'j 


TF.-'.T 

T'rir- 

EE SECUF.I 

ICE ST 

Mr 

ire 

. V » vJ 

/ HCP.E 

CC1 U.-:F 

1 

PROCESS 

ST Mi 

i r> 

: ( J • 

TF: 

:t 

CCLU.-.II 

1". 

PrTCFSS 

SIP I; 

r> 

V> 

TM 

FE 

.S'' : , :i 

IE 

FTT.CESS 

STM! 

:G 

StO 

.L"! CE 

CL U'.’!. 

r 

^ r. r r »- o r 

n uu..»:» 

' i \ r I tib 

SI! 

l!'CS 


FV- MAL'CSTIC r t ?; * m sr. mm m r?m m*«t; 




m«n output F-c;i r?c sem testff *,?t-jsnin-r:;* 


TEXT 

THREE 

SECCZ 

MCE 

STRU¬ 

GS 


4- V% * « ■. -'V -T** 
4. ^-r */r 

■ * * + *vi * ■’*•* f * rr ; T\ 
i 1 C' i/ 

OUTPUT 

COLD'S: 

3E 

PROCESS 

STRING: 

hER:-I 

CCLUr.N: 

40 

PROCESS 

STRING: 

IS 

CCLJJrN 

43 

PROCESS 

STRING: 

MO. 

CCLli-M: 

4? 

PROCESS 

STRING: 

2 

v V ? 7 v T 

*«* 

.jjV -v«V - 'Vi V* 

SStit** 

«i * * 

L-.l 


‘ttmtmitism&utng: output fecn prcgfm testff nmmnsmnmmsst 


HERE 

IS 

NO. 

P 


xnmtMtuiwmt:tt eud output ep.cm pres?,mi testff mmnttnnnnmt*. 
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SECTION 4 


FLOW DIAGRAMS 


This section describes the operation of program TESTFF and 
subroutine FREFORM. In general, the code breaks down into a number of 
relatively well-defined algorithms. Each such algorithm is presented on a 
separate flowchart, and is given a unique name, such as "INTEGER", for 
example. Then the use of this particular algorithm by other sections of 
the code would be indicated by the symbol, fIlNTEGERJ 1 , in the flowcharts. 

The following discussion refers to the flowcharts of TESTFF, 
shown in Figures 2, 3, and 4. At the beginning of the program, a header 
is printed. The major loop is then executed until it is terminated by the 
flag ISTP. Inside the loop, FREFORM is called. The second loop (number 
2) checks the data value in the first element of array VALU against each 
of the four keywords "INTG", "FLTG", "TEXT", and "STOP". (The keywords 
are contained in an array, VWRD.) If a match occurs, the flag JFLG is set 
to the current value of the loop index, INDX. Following the loop, a 
header is printed. A "computed GOTO" on JFLG is then executed causing a 
branch to one of four program blocks which corresponds to the keyword 
matched. Three of the blocks (corresponding to keywords "INTG", "FLTG", 
and "TEXT") cause the contents of VALU to be printed in a format described 
by the keyword. Use of the variable NFST in program blocks "INTG" and 
"FLTG" permits the keyword to be printed in character code format. The 
fourth block sets the flag rSTP and causes the word "STOP" to he printed. 
When the major loop is terminated, a footing is printed, and execution 
stops. 


'n 




CALL FKEFOR( VAL(J, NVAL) 
NFST=1 


a=vwrd(indx).NE.VALU( l) 



Figure 2. Tho General Structure of Lho Tost Algorithm 



































A complete list of variables and definitions used in subroutine 
PREFORM is presented in Table 3. The general structure of FREFORM is 
shown in Figure 5. The single alternative decision block at line 260 is 
part of the diagnostic package. The rest of the diagnostic package is 
contained in the decision block in Figure 6, and in "DIAGN0SE1" and 
"DIAGN0SE2"(Figure 7). Note that "DIAGN0SE1" is executed only on the 
first call to the subroutine. 

The major loop (number 1) in Figure 5 is executed until the end 
of the current sequence string. Section 2.2 describes the basic steps 
which occur inside this loop. Steps (1) and (2) mentioned there occur in 
the ''FILLSTRING’' algorithm (Figure 8). The test described in Step (3) is 
shown in Figure 5 at line 240. Step (4) occurs in either "NUMBER" (Figure 
12) or "CHARACTER" (Figure 19). 

Figure 8 shows the "FILLSTRING" algorithm. In the first loop 
(number 2), the array JCST is filled with blanks. The process string loop 
(number 3) is executed until the process string is terminated. The 
decision block at the top of the loop fetches a new record image when 
needed (see "READCARD” in Figure 9) or terminates the sequence string when 
NIPS records have been read. Each time through the loop, one character 
from the current record image is tested and may be placed in the process 
string. Testing and storing occurs in "TEST1" (Figure 10) and "TEST2" 
(Figure 11). Note that the process string may be terminated by a blank, a 
comma, or a slash, or by the test at line 380, when NCPS characters have 
been read. 


The "NUMBER" algorithm is shown in Figure 12. Integers, as well 
as the integer portion of fixed point numbers and floating point number 
mantissas are all processed in "INTEGER" (Figure 13). The portion of any 
number to the right of a decimal point is processed in "DECIMAL" (Figure 
15) and stored in "STORDEC" (Figure 16). Exponents are processed in 
"EXPONENT" (Figure 17) and stored in "STOREXP" (Figure 18). In "STORNFM" 
(Figure 19), valid processed numbers are placed in the VAL1J array and an 
error message is printed for incorrectly formatted numbers. 




TABLE 3 

VARIABLE DEFINITIONS FOR FREFORM 


DFCT - factor used to compute DSTO 

DSTO - variable to store decimal portion of number 

ESGN - sign of exponent 

ESTO - variable to store exponent 

EXPN - exponential multiplier for number processing 

IALP - flag for alphanumeric character string processing 

ICIM - image position of first character in the process string 

ICOM - flag to detect sequential commas 

IERR - flag to indicate error in numerical value 

IFLD - flag to indicate text processing 

INDO - index for general use 

IND1 - index for general use 

IONC - flag to indicate first execution of subroutine 
IPRO - flag to initiate word processing 

IRET - flag to exit subroutine afLer sequence completion 
ISTO - variable to store integer portion of number 
ISTR - flag to transfer character from image to process sLring 
ITST - flag to produce system diagnostic 

JCAE - ASCII character for fifth alphabetical character, (E) 

JCAF - ASCII character for final alphabetical character, (Z) 

JCAI - ASCII character for initial alphabetical character, (A) 
JCAS - ASCII character for asterisk symbol, (*) 

JCCO - ASCII character for comma symbol, (,) 

JCDP - ASCII character for decimal point, (.) 

JCHA - current character in the record image 
JCIM - array of characters in the record image 
JCMI - ASCII character for minus symbol, (-) 

JCNF - ASCII character for final decimal character, (9) 

JCNI - ASCII character for initial decimal character, (0) 


I 






TABLE 3 - continued 


JCPL - ASCII character for plus symbol, ( + ) 

JCSL - ASCII character for slash symbol, (/) 

JCSP - ASCII character for space symbol, ( ) 

JCST - array of characters in the process string 
JCTF - character transfer variable in number processing 
JNUM - array of decoded digits for number processing 
NCCT - number of characters counted 

NCIM - pointer for the image string character array 

NCIW - maximum number of characters per integer word 

NCLW - number of characters in the last word processed 

NCPI - maximum number of characters per image string 

NCI’S - maximun number of characters per process string 

NCRW - maximum number of characters per real word 

NCST - acLual number of characters in the process string 

NCTF - number of characters transferred in number processing 

NFST - position of first character to be transferred 

NIMS - number of images processed in current sequence siring 

NIMT - total number of record images processed 

NIPS - maximum number of images per sequence 

NLST - position of last character to be transferred 

NPRO - pointer for the process string character array 

NSEQ - total number of sequence strings processed 

NSGN - sign of number 

KVAL - pointer for the output array VALU 
NWTF - number of words transferred in number processing 
RNUM - array containing decoded digits in number processing 
VALU - output array containing processed data 






The "INTEGER" and "EXPONENT" algorithms have similar 
structures. A decision block at the beginning detects an algebraic sign, 
and a counting loop then determines the number of numerals before the next 
non-numerical character. Note that the character which terminates the 
counting loop may be the blank which is appended to every process string. 
Each of the numerals counted is used to form an integer value in "STORINT" 
or "STOREXP". 

The formation of an integer value from ASCII characters is 
accomplished by an ENCODE/DECODE statement pair and a small loop, all 
located within a larger outer loop. ASCII characters in the elements of 
JCST are packed into a temporary variable, JCTF, by the ENCODE statement. 
The characters are then converted to integer representation one at a time, 
and placed in the elements of JNUM by the DECODE statement. The integer 
representations in the elements of the JNUM array are multiplied by 
decreasing powers of (10) and summed. 

"DECIMAL" is similar to "INTEGER" and "EXPONENT”, with two 
exceptions. First, no tests are made for an algebraic sign. Second, each 
of the numerals counted is used to form a decimal fraction. Note that 
"DECIMAL" is not executed unless the character irrminaLing the counting 
loop in "INTEGER" is a decimal point. 

Error analysis occurs in two places in the number processing 
algorithm. The first check occurs after the integer and decimal process¬ 
ing algorithms, at line 450 of "NUMBER". A test is made Lo determine 
whether the next character is the letter "E". If so, then the exponent is 
processed; if not, then an error flag is set. The second check occurs aL 
the end of "EXPONENT". Again, a Lest is made Lo determine whether the end 
of the process string has been reached. If not, then an error flag is 
set. 









In the "CHARACTER" algorithm (Figure 19), every character in the 
process string (except the appended blank) is packed into the VALU array 
with an ENCODE statement. The counter NVAL is then incremented by the 
number of words stored in VALU. 








REPEAT 1 


A = (IALP.EQ.l).OR. (JCST(D.LE.JCAF.AND.JCST(l).GE.JCAI) 


Figure 5. The Gonoral Structure of FKEFORM. 












































READCARD 


S~ 


ENTER 


320 

▼ _ 

NCIM = 0 
NIMS = NIMS+1 
NIMT = NIMT+1 
READ (5,10) (JCIM(INDO), 
INDO = 1, NCR I) 


S'l [TSTN 

- 

r .. 


WRITE (6,20) 

WRITE (6,120) NSEQ, NIMT 
WRITE (6,80) 

WRITE (6,80) (JCIM(INDO), 
1ND0=1, NCPI 





T 


* 



Figure 9. Obtaining a New Record Image 
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A = (JCHA.XE.JCSL) 
B = (JCHA.NE.JCAS) 

c = (r Fui.r.’t:. l) 
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INTEGER 



Figure 13. Processing Integer Portion. 
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STORINT 




REPEAT5 REPRAT6 


» 


» 


Pi; "ii' I*. Sltirin;-, 1 :»t ■ r I’ott ion. 


t 
















STORDEC 
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Figure IS. Storing tin- Decimal Portion. 
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STOREXP 



REPEAT11 REPEAT12 


Figure 18. Storing the Exponent Portion. 









V ALU(NVAL) = 1H 
WRITE(6,80) 

WRITK(6,80) 

WRITE(6,80) 

WRITE(6,70) NLMT 
WRITE(6,80) (JCIM(INDO), 
IND0=1,NCPI) 
WRITE(6,90) ICIM,(JCST 
(INDO), IN'D0=1 > NCPS ) 
WRITE(6,100) 



NCTK=NCRW* ( 1 +(:;cr»T- 1 ) /N’CRW ) 

ENCODE(S'CTI', I 0, VAL(I(NVAL+1 ) ) (JCST( I NDO), I NT)0=1, MOST) 
1!VAE=S'VAE+1 +(\’CST-1 ) /NCRW 


VALU(NVAL)=KSGN* 
(FLOAT(ISTO)+DSTO) 
*10.**(ESGN*ESTO) 













SECTION 5 
FORTRAN LISTING 


This section presents FORTRAN listings for the program, TESTFF, 
and the subroutine, FREFORM, exactly as implemented on the DEC-10 
computer. 




I 


» 


I 



non n 


PROGRAM TESTFF 


C 

C *********** VALIDATES PERFORMANCE OF SUBROUTINE FREFOR *********** 
G 

C THE PURPOSE OF PROGRAM TESTFF IS TO VALIDATE THE PERFORMANCE OF 
C SUBROUTINE FREFOR. TESTFF ALLOCS DATA TO EE SENT TO FREFOR, 

C AND PRINTS THE VALUES RETURNED. ALL OF THE VALUES RETURNED FROM 
C EACH SEQUENCE STRING ARE PRINTED ACCORDING TO THE SAME FORMAT 

C SPECIF!CAT ON. THIS IMPOSES ONE RESTRICTION ON THE NORMAL OPERATION 

C OF SUBROUTINE FREFOR: ALL OF THE VALUES RETURNED FROM EACH 
C SEQUENCE STRING MUST BE OF THE SAME DATA TYPE. 

C 

C THE TYPE MUST BE SPECIFIED BY THE USER BY A KEYWORD AT THE 

C BEGINNING OF EACH SEQUENCE STRING. IF THE DATA TYPE IS NOT 

C SPECIFIED IN THE FIRST SEQUENCE STRING, PROGRAM EXECUTION IS 
TERMINATED. ONCE A DATA TTPE HAS BEEN SPECIFIED, ALL SEQUENCE 
STRINGS ARE ASSUMED TO BE OF THAT TYPE UNTIL A NEW TYPE IS 
SPECIFIED. THREE DATA TYPE KEYWORDS ARE RECOGNIZED: "INTO" 

(FOR INTEGER VALUES), "FLTG“ (FOR FLOATING POINT AND FIXED POINT 
C VALUES), AND "TE VT " (FOR ASCII CHARACTER STRINGS). 

C 

C NUMERICAL FORMAT SPECIFICATIONS IN PROGRAM TESTFF MATCH THE RANGE 
C OF VALUES ACCEPTED BY SUBROUTINE FREFOR. THE TEXT FORMAT 
C SPECIFICATION IN TESTFF WILL ACCOMODATE 10 ASCII CHARACTERS, BUT 
C THE MAXIMUM LENGTH OF TEXT STRINGS RETURNED BY SUBROUTINE FREFOR 

C IS DETERMINED BY THE WORD LENGTH AND NUMBER OF BITS PER CHARACTER 

C OF THE SYSTEM BEING USED. 

C 

C PROGRAM EXECUTION IS TERMINATED BY THE KEYWORD "STOP", WHICH 
C MUST OCCUR A1 THE BEGINNING OF A SEQUENCE STRING. ANY DATA 

C FOLLOWING THE WORD "STOP* WILL NOT BE PRINTED BY PROGRAM TESTFF. 

C 

c 

c 

c mn**»*m**mmm format definitions mmmmmum*** 

g 

10 FORMAK/IX,RA( 1H*) ,31H PROGRAM TESTFF - MARCH 1901 ,2S(1H*)//) 

00 FORMAT(/IX,,?£(!!)*> .259 OUTPUT FROM PROGRAM TESTFF ,2o(lH*)) 

30 FC?.MA!(/1X,24(1H«),3SH END CUT PUT FROM PROGRAM TEGTFF ,24(19*1) 

AO FORMAT(IX,110) 

SO FORMAT'IX,El A fc) 

GO FERMAT(IX.AID) 

71 FO?MAT(/lX,2T'li't),ACH P 5 CGPAM TESTFF - 
1 E'OtlH*),') 


EXECUTION COMPLETED 






c 

c 

REAL VALU(SO) ,Vl!RD(4) 

C 

DATA VURD/4HINTG ,-5HFLTG,4HTEXT .4HSTGP/ 

DATA EURD/1H / 

C 

C INITIALIZE I/O UNIT b TO TERMINAL. 

OPEN(UNIT=fc, DEVICE='TTY') 

C 

C PRINT PROGRAM HEADER. INITIALIZE FLAGS. 

WRITE(6,10) 

JFLG=4 

ISTP-fl 

C 

c tnnmnnnnnn loop until stop requested mnmnnmm * 

r, 

80 CALL FREFOR <VALU,NVAL) 

NFST=i 

C 

c test first value for keyword, set jflg. 

DO90INDX=l ,4 

IF(VWRD(INDX).HE.VALLK i))GOTO90 
JFLG=INDX 
NFST=2 
90 CONTINUE 
C 

C PRINT OUTPUT HEADER, THEN BRANCH TO PRINT VALUES. 

WRITE(6,20) 

GOTCK100,110,120,130)JFLG 
C 

C INTEGER PROCESSING. 

C 

C PRINT KEYWORD IN CHARACTER FORMAT. 

100 IRWFST EQ.DGOTOiOS 

WRITE <6,60 >VALLK 1) 

C 

C PRINT VALUES IN INTEGER FORMAT. 

10S IF(NVAL.LT.NFST)GGTOH0 

DO109INDX=NFST.NVAL 
IF(VALU<INDX) NE.I : JRD)GOTO103 
URITE<6,60m!RD 
GOTO U 9 

1C8 INTG=VALU(INDX) 

WRI7c(6,40)INTG 
10? CONTINUE 
GOT 0 L 0 




C 


c 

c 

c 


FLOATING POINT NUMBER PROCESSING. 


PRINT KEYWORD IN CHARACTER FORMAT. 

110 IF(NFST,EQ.1)GOTO!12 
URITE(6,6G)VALU(i) 

C 

C PRINT VALUES IN FLOATING POINT FORMAT 

112 IFUWAL.LT.NFST)GOTGi4D 
DO i 19IJ1DX=NFST ,NVA'l 

IF< VALU< INDX). NE. ENVRD>GOTO! 1B 
WRITER,6G)BURD 
GOT0119 

113 URITE(f>,SO)VALUUHDX) 

119 CONTINUE 
GOTO!40 

C 

C TEXT PROCESSING. 

C 

C PRINT VALUES IN CHARACTER FORMAT. 

120 UR IT E Cf>, GO K VALU (INDX), I NDX=1, NV.TL) 
GOTOi40 

C 

C TERMINATE PROGRAM EXECUTION. 


C 

C PRINT "STOP*, SET ISTP. 

130 !JRITE<6,6Q)VyRD<4> 

ISTP=i 

C 

C PRINT OUTPUT FOOTING, TEST ISTP TO CONTINUE. 
140 WRITE(fc,30) 

IF(ISTP.EQ,0)GQT080 


C 

C 

C 


PRINT PROGRAM FOOTING. 
UR1TE(6,?0) 




SUBROUTINE FREFGR (VALU.NVAL) 


C 

c ********* processes fsee-forkat data to internal format mtnxnt 
c 

C SUBROUTINE FREFOR IS DESIGNED TO PROCESS FREE-FORMAT DATA UHICH 
C IS OBTAINED FROM AN EXTERNAL RECORD, FOR EXAMPLE, A CARD READER 

C OS AN INTERACTIVE CONSOLE. THE DATA MUST CONSIST OF A STRING 

C OF ASCII CHARACTERS, INCLUDING THE DELIMITERS, SPACE! ), COMMA!,), 

C ASTERISK(i), AND SLASH!/). FREFOR INTERPRETS DATA SEQUENTIALLY 

C ACCORDING TO ITS INTERNAL FORMAT, AND STORES INTERNAL VALUES IN 
C AN ARRAY (VALU). FOUR TYPES OF VALUES ARE RECOGNIZED. 

C 

C (1) NUMERICAL CONSTANT - RATIONAL NUMBER CONSTANTS ARE 
C RECOGNIZED IN FIXED, FLOATING, AND EXPONENTIAL FORMATS 
C (EXAMPLES - 143, 3.14159, l.E-07). VALUES MUST BE 

C SEPARATED BY SPACE OR COMMA DELIMITERS. NOS,’ESSENTIAL 

C CHARACTERS 'JILL BE AUTOMATICALLY SUPPLIED DURING 
C INTERPRETATION (THUS, FOR EXAMPLE, IE-7 AND i.OE-97 DILL 

C BE INTERPRETED IDENTICALLY). THE NUMBER GF CHARACTERS 

C DEVOTED TO A SINGLE CONSTANT IS LIMITED TO NCPS (DEFINED IN A 
C DATA STATEMENT). 

C 

C (2) ALPHANUMERIC CONSTANT - ALPHANUMERIC CONSTANTS ARE 
C RECOGNIZED BY THE FIRST CHARACTER, WHICH MUST BE 
C ALPHABETICAL. SUCCEEDING CHARACTERS MAY BE ALPHABETICAL, 

C NUMERICAL, OR ANY ASCII SPECIAL CHARACTER OTHER THAN SLASH 

C OR ASTERISK (EXAMPLES - A123, Z44S, START). VALUES 

r. MUST BE SEPARATED BY SPACE OR COMMA DELIMITERS. THE 

C NUMBER OF CHARACTERS DEVOTED TO A SINGLE CONSTANT IS 

C LIMITED TO NCPS. 

C 

C (3) NULL VALUE - A NULL VALUE IS CREATED BY RECOGNITION OP 
C SUCCESSIVE COMMAS, UITB NO INTERVENING CHARACTERS. 

C (BLANKS, OR SPACES, BETWEEN ADJACENT COMMAS WILL PE 
C IGNORED FOR EXAMPLE, THE CHARACTER STRING (, ,,) WILL 

C PRODUCE TWO NULL VALUES.) 

C 

C (4) TEXT - ANY CHARACTER STRING DELIMITED BY TWO ASTERISKS 

C (AT BEGINNING AND END) WILL BE RECOGNIZED AS TEXT, AND WILL 

C BE RETAINED INTACT WITH EMBEDDED SPACES, COMMAS, AND ALL 

C ASCII CHARACTERS EXCEPT THE SLASH AND ASTERISK THE 

C TEXT NILE BE CODED IN AS MANY VALUES AS ARE REQUIRED TO 

C PROCESS THE STRING. 

C 










c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

r, 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 


THE OPERATION OF FREFOR RELIES UPON DEFINITION OF FOUR TYPES 
OF CHARACTER STRINGS, EACH IN GENERAL CONTAINING A DIFFERENT 
NUMBER CF CHARACTERS. THE RELATIONSHIPS BETWEEN THE FOUR TYPES 
O r CHARACTER STRINGS ARE AS FOLLOWS. 

(1) RF.CCRD STRING - THIS IS THE COMPLETE SET OF ALL 
SEQUENCE STRINGS TO BE PROCESSED THROUGH SEQUENTIAL 
EXECUTIONS OF FREFOR. 

(2) SEQUENCE STRING - WITHIN THE RECORD STRING HAY EXIST 
ANY NUMBER. OF SEQUENCE STRINGS, DELIMITED BY A SLASH 

AT THE TRAILING END. NO DELIMITER IS REQUIRED IF THE 
SEQUENCE STRING IS LIMITED BY THE SPECIFIED NUMBER OF 
RECORD IPAGES (NIPS). OTHERWISE, THERE MAY BE ANY 
NUMBER OF IMAGES PER SEQUENCE STRING. 

(3) RECORD IMAGE - THIS IS THE CHARACTER STRING WHICH 
EXISTS ON A SINGLE IMAGE. FOR EXAMPLE, AN IMAGE MIGHT 
CONSIST OF A FORTRAN CARD, IN WHICH CASE THE RECORD 
IMAGE CONSISTS OF OQ CHARACTERS. 


(4) PROCESS STRING - THIS IS AN INTERNAL CHARACTER 
STRING USED IN FREFOR TO PROCESS DELIMITED DATA. 

THE LENGTH OF THE STRING IS SPECIFIED BY NCPS, WHICH 
MUST BE AN INTEGER MULTIPLE OF THE NUMBER OF ASCII 
CHARACTERS WHICH CAN BE STORED IN A SINGLE MACHINE 
WORD. IN EFFECT, THE PROCESS STRING LIMITS THE 
LENGTH CF ALPHANUMERIC CONSTANTS AND THE ACCURACY OF 
NUMERICAL CONSTANTS. 


SUBROUTINE FREFOR RECOGNIZES INCORRECTLY FORMATTED NUMBERS AND 
PRINTS AN ERROR DIAGNOSTIC. TWO ERRORS ARE RECOGNIZED. 

(1) SYNTAX ERROR IN THE MANTISSA - ANY STRING (EXCLUDING TEXT 
DELIMITED BY ASTERISKS) BEGINNING WITH A NONALPHABETICAL 
CHARACTER IS ASSUMED TO BE A NUMERICAL CONSTANT. IF THIS 
CONSTANT CANNOT BE INTERPRETED, A SYNTAX ERROR RESULTS. 
(EXAMPLES: 2S.00F+U2,i +15, QSTRING) 

(2) SYNTAX ERROR IN THE EXPONENT - THE EXPONENT OF A NUMERICAL 
CONSTANT MUST BE AN INTEGER VALUE. (IT MAY INCLUDE AN 
ALGEBRAIC SIGN) IF AN EXPONENT CANNOT BF. INTERPRETED A 
SYNTAX ERROR RESULTS (EXAMPLES. 2E2., 2EE3, 2E-I) 

THE PROCESSING CF DATA BY SUBROUTINE FREFOR OCCURS IN FOUR 
MAJOR STEPS. 

'1; A PECCPD IMAGE IS READ INTO AN INTEGER 


APR At , JCIM. 






C ONE CHARACTER IS PLACED IN EACH ARRAY ELEMENT. A NE'I 
C RECORD IMAGE IS OBTAINED WHEN ALL OF THE CHARACTERS ON 
C THE PREVIOUS IMAGE HAVE BEEN INTERPRETED. 

C 

C (2) EACH CHARACTER IN JCIM IS TESTED AGAINST EACH OF THE 

C FOUR STRING DELIMITERS AND THEN STORED IN AN INTEGER ARRAY, 

C JCST, WHICH CONTAINS THE PROCESS STRING. ONE CHARACTER IS 

C STORED IN EACH ARRAY ELEMENT. WHEN A DELIMITER IS DETECTED, 

C TESTING STOPS AND PROCESSING IS INITIATED. 

C 

C (3) A TEST IS HADE TO DETERMINE WHETHER THE PROCESS STRING 
C CONTAINED IN JCST IS A NUMERICAL VALUE OR AN ALPHANUMERIC 
C CHARACTER STRING. 

C 

C (4) THE CONTENTS OF JCST ARE INTERPRETED AND THEN STORED IN 
C THE ARRAY VALU BY EITHER A NUMBER DECODING ALGORITHM OR A 

C CHARACTER STRING PACKING ALGORITHM, ACCORDING TO THE RESULT 

C OF THE TEST. THE ARRAY VALU IS RETURNED TO THE CALLING 

C PROGRAM UNIT WHEN THE ENTIRE SEOUENCE STRING HAS BEEN READ, 

C TRANSLATED AND STORED. 

C 

C SUBROUTINE FREFOR CONTAINS A SYSTEM DIAGNOSTIC MODE. IT IS 

C SELECTED BY SPECIFYING ITST=i. THE DIAGNOSTIC MODE CAUSES A 

C LISTING CF THE SYSTEM-DEPENDENT PARAMETERS AND ASCII CHARACTER 

C VARIABLES TQ EE PRINTED ON THE FIRST CALL. SUBSEQUENTLY, ALL 
C RECORD IMAGES AND PROCESS STRINGS WILL BE PRINTED PRIOR TO 
C TRANSLATION. 

C 

C 

c mtttttmmtnnm variable definitions mmmnnmmm 

c 

C DFCT - FACTOR USED TO COMPUTE D3T0. 

C DSTO - VARIABLE TO STORE DECIMAL PORTION OF NUMBER. 

C ESGN - SIGN OF EXPONENT. 

C ESTG - VARIABLE TO STORE EXPONENT. 

C EXPfl - EXPONENTIAL MULTIPLIER FOR NUMBER PROCESSING. 

C I ALP - FLAG FOR ALPHANUMERIC CHARACTER STRING PROCESSING. 

C ICIM - IMAGE POSITION OF FIRST CHARACTER IN THE PROCESS STRING. 

C ICOM - FLAG TO DETECT SECUENTIAL COMMAS. 

C I ERR - FLAG TO INDICATE ERROR It! NUMERICAL VALUE. 

C IFLD - FLAG TO INDICATE TEXT PROCESSING. 

C INDO - INDEX FOR GENERAL USE. 

C INDl - INDEX FOR GENERAL USE. 

C ICNC - FLAG TO INDICATE FIRST EXECUTION OF SUBROUTINE. 

C IPPO • FLAG TO INITIATE WORD PROCESSING. 

C IRF.T - FLAG TO EXIT SUBROUTINE AFTER SEOUENCE COMPLETION. 

C ISTG - VARIABLE TO STORE INTEGER PORTION OF NUMBER 

C 1ST? - FLAG TO TRANSFER CHARACTER FROM IMAGE 10 PROCESS STRING 
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c 

c 

c 

c 

c 
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c 

c 
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c 

c 

c 

c 
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c 
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c 

c 
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1TST - FLAG TO PRODUCE SYSTEM DIAGNOSTIC. 

JCAE - ASCII CHARACTER FOR FIFTH ALPHABETICAL CHARACTER, (E). 

JCAF - ASCII CHARACTER FOR FINAL ALPHABETICAL CHARACTER, (7). 

JCAI - ASCII CHARACTER FOR INITIAL ALPHABETICAL CHARACTER, (A). 
JCAS - ASCII CHARACTER FOR ASTERISK SYMBOL, (•»). 

JCCO - ASCII CHARACTER FOR COMMA SYMBOL, (,). 

0CD? - ASCII CHARACTER FOR DECIMAL POINT, (.) 

JCHA - CURRENT CHARACTER IN THE RECORD IMAGE. 

JCI.i - ARRAY OF CHARACTERS IN THE RECORD IMAGE. 

JCMI - ASCII CHARACTER FOR MINUS SYMBOL, (-). 

JCNF - ASCII CHARACTER FOR FINAL DECIMAL CHARACTER, (V). 

J CM I - ASCII CHARACTER FOR INITIAL DF.C1MAL CHARACTER, (0). 

JCFL - ASCII CHARACTER FOR PLUS SYMBOL, (+). 

JCSL - ASCII CHARACTER FOR SLASH SYMBOL, (/). 

JCSP - ASCII CHARACTER FOR SPACE SYMBOL, ( ). 

JCST - ARRAY OF CHARACTERS IN THE PROCESS STRING. 

JCTF - CHARACTER TRANSFER VARIABLE IN NUMBER PROCESSING. 

JNUM - ARRAY OF DECODED DIGITS If! NUMBER PROCESSING. 

NCCT - NUMBER OF CHARACTERS COUNTED. 

NC5M - POINTER FOR THE IMAGE STRING CHARACTER ARRAY. 

NCIU - MAXIMUM NUMBER OF CHARACTERS PER INTEGER UORO. 

NCLU - NUMBER OF CHARACTERS IN THE LAST WORD PROCESSED. 

NOP I - MAXIMUM NUMBER OF CHARACTERS PER IMAGE STRING. 

NCPS - MAXIMUM NUMBER OF CHARACTERS PER PPOCESS STRING. 

NCRM - MAXIMUM NUMBER OF CHARACTERS PER REAL UORD. 

HOST - ACTUAL NUMBER OF CHARACTERS IN THE PROCESS STRING. 

ItCTF - NUMBER OF CHARACTERS TRANSFERRED BY ENCODE/DECODE. 

OFST - POSITION OF FIRST CHARACTER TO BE TRANSFERRED. 

MIMS - NUMBER OF IMAGES PROCESSED IN CURRENT SEQUENCE STRING. 
NIMT - TOTAL NUMBER OF RECORD IMAGES PROCESSED. 

NIPS - MAXIMUM NUMBER OF IMAGES PER SEQUENCE. 

NLST - POSITION OF LAST CHARACTER TO BE TRANSFERRED 
NPRO - POINTER FOR THE PPOCESS STRING CHARACTER ARRAY. 

NSEO - TOTAL NUMBER OF SEQUENCE STRINGS FR0CE3SED. 

NcGN - SIGN. OF NUMBER. 


AVAL 

NOTE 

RtIUM 


POINTER FOR THE OUTPUT ARRAY VALU. 

NUMBER OF CORDS TRANSFERRED BY ENCODE/DECODF. 

ARRAY CONTAINING DECODED DIGITS IN NUMBER PROCESSING. 


VALU - OUT FIJI ARRAY CONTAINING PROCESSED DATA 


INTEGER EBGN, ES T 0 .JCIM(.JCST (2J), J.THMY if) 
REAL RNUM()b).VALO(S j) 


lata i<i n t/ c/,i lnc 


/jNEEC/O/ 


I 





oj ro 


c 

c 


mtmntmmm systoi-depehdejit parameters tmnmmnun 

DATA Nr.Itl/5/ ) NCRU/5/ > MCPI/a0/ J WCPS/20/,«IPS/i/ 

c 

c 

c 

c utmninnnttut ascii character variables mmmmmm* 

i; 

DATA JCAE/iHE/,JCAF/iHZ/,JCAI/iHA/,JCAS/iHS/,JCCD/iH,/,JCDP/iH. /, 
i JCMI/HW, JCNF/1H9/, JCNI/1HQ/, JCPL/1H+/, JCSL/1H//, JCSP/iH / 

C 

C 

C 

c ttnttttttntnttntttt* diagnostic switch %t%nmtxt*unt%t%tn* 

c 

data itst/i/ 
c 
c 
c 

c %t%%%M%nt%%n%u%nn format definitions unnn%%ntu%nt%%%% 

i; 

10 FORMAT(80Ai) 

0 FORHAT(/iX,25(lH*),30H SUBROUTINE FP.EFDR DIAGNOSTIC ,2S(iKH) 

0 FORMAT(iX,20H ASCII CHARACTER VARIABLES/) 

-10 FORMAT<IX,SK JCAE,4X,4HJCAF,4X,4HJCAI,4X,4HJCA3, 
l 4X,4HJCCO,4X,4HJCDP/ 

i 4H ,Ai,5(7X,Ai)/) 

50 FORMAT(IX,5M JCMI,4X,4HJCNF,4X,4HJCNI,4X,4HJCPL, 

1 4X,4HJCSL,IX,4HJCSP/ 

1 4H ,A1 ,S(7X,Ai)/) 

55 FORMAT(iX,28H SYSTEM-DEPENDENT PARAMETERS/) 

60 FORMAT!IX,5H NCUI,4X,4HKCRW,4X,4HNCPI,4X,4HNCPS,4X,4HNIPS/ 

1 3H ,I2,4!6X,I2)) 

75 F0RUAT(lX,il(iH*),3SH ERROR DETECTED BY SUBROUTINE FREFOR, 
i 17H IN RECORD IMAGE ,I4,1X,11<1H*>) 

SO FORMAT(iX.OOAl) 

90 FORMAT!IX,OH COLUMN-. ,13,2X,16HPPOCES5 STRING: ,20At) 

ICO FORMAT(IX,80!1H*)///) 

HO rOPrt.iT(/iX,3?(iH*),i6U END DIAGNOSTIC ,32(iHi>) 

120 F OF MAT (IX, 17H SEQUENCE STRING., I4,?X, lSHFECCRD IMAGE-- ,14) 

130 FORMAT OGIl) 

140 FORMATf 1UF1.0) 

155 FORMAT(13A1) 

C 

c 

c 

c tmimitm begin ppr-r,F5oiNs a nF'i tf.gl'Ln'.e sir - I n" 







c 

C INITIALIZE I/O UNIT 6 TO TERMINAL. 

OPEN(UNIT=6 f DEVICE='TTY') 

C 

C THIS SECTION FIRST TIME ONLY. 

C 

IF(IONC.NE.0)COTO2OQ 
C 

C INITIALIZE FLAGS FOR FIRST CALL. 

IONC-l 
NCIM=NCPI 
C 

C DIAGNOSTIC: ASCII CHARACTER VARIABLES 

C SYSTEM DEPENDENT PARAMETERS. 

IF(ITST.EQ.O)GOT0200 

WRITE(6 I 20) 

WRITE(fc,3Q) 

WRITE(fc,40)JCAE,JCAF,JCAI,JCAS,JCCO,JCDP 
URITE(6,50)JCMI, JCNF,JCNI,JCPL,JCSL,JCSP 
WRITE (f>, S5) 

WRITE(fa,fcO )NCII! ,NCRU ,NCPI ,!iCPS,NIPS 
WRITE (i,110) 

C 

C INITIALIZE VARIABLES FOR NEW SEQUENCE STRING. 

i; 

200 IF(NCIrt.EQ.NCPI)NIMS=0 
IFLD=0 
IR ET=G 
NVAL'O 
I CO, 1=0 
NSEG=NSEQ+i 
C 
C 
C 

c mmumn-m loop until end of sequence string mumnnui 

c 

213 IF(IF:ET.EQ.i)GQT02BO 
C 

C LOAD PEOCESS STRING ARRAY ELEMENTS WITH BLANKS 
C 

DO220IND0=i,NCPS 
220 JCST (I.'ilni) -1H 
C 

C INITIALIZE VARIABLES FOR NEW PROCESS STRING 
C 

HCST=0 

I.'LP-O 

IPPO-O 


. 1 








nmnnmtm loop until end of process string mmmtmtn 


f 

I 


c 
c 
c 
c 

i; 

313 IF(IPR0 EQ.DGOT0230 
C 

C GET A CHARACTER FRCct THE RECORD IMAGE. 

C 

IF<NCIM.N£.NCPI)GQT033G 

IF(NIM3.LT.NIPS)GOT0320 

C 

C MAXIMUM IMAGE NUMBER EXCEEDED. TERMINATE SEQUENCE. 

JCIM(NCPI>=JCSL 

NCIM=NCPI-i 

GQT033D 

C 

C END OF IMAGE ENCOUNTERED. READ A NEW RECORD IMAGE. 

320 NIC 1.1=0 
NIMS=N1MB+1 
NIMT=NIrlT+i 

READ(5,iB) (JCIM(IMDO) ,IND0=i,f!CPI) 

C 

C DIAGNOSTIC: PRINT RECORD IMAGE. 

IF(ITST.EQ.0 >GOTO330 
WRITE(6,20) 

WRITE(6,i20)HSEQ,NlMT 
WT? ITE (6,30) 

URITE(6,S0)(JCIM(INDO),IND0=i,NCPI) 

C 

C INITIALIZE VARIABLES FOR CHARACTER COMPARISON TESTS. 

C 

330 IPFO=i 
13TR-0 
NC1M=NCIM+1 
JCHA=JCTM(NCIM) 

C 

C TEST CHARACTER AGAINST DELIMITERS WHICH TERMINATE PROCESS STRING. 

i; 

C TEST FOP SLASH DELIMITER, </) 

IFUCHA NE.JCSL)GOTH340 
IPET=1 
GOT0310 
C 

0 TEST FOR ASTERISK IF.LIMITER, («> 

340 IFUCHA NE JCASH,37C3S(I 
IFUFLI ! E . 1 i0070343 






GOT 0310 
345 IFLD=i 
GOT 03i0 
C 

C TEST FOR COMMA DELIMITER, (,). 

350 IF(.NOT.(JCKA.EO.JCCO.AND.IFLD.EQ.0))COTO360 
IFdCOM.NE.i )G0T0355 
IALP r i 
ISTR=i 
JCHA=iH 
GOT0370 
355 ICCM=1 
GOT0310 
C 

C TEST FOR SPACE DELIMITER, ( ). 

3L0 IFUCHA.EQ.JCSP.AND.IFLD.EQ.G)GOT03iO 
IPRO=0 
I ALP "IFLD 
ISTR=1 
ICCii'-O 
C 

C STGRE CHARACTER IN PROCESS STRING. 

370 IF(ISTR.NE.1)GOT0330 
NCST=NDST+i 
JCST(HCST)=JCHA 
C 

C TEST NUMBER OF CHARACTERS STORED IN PROCESS STRING. 

330 IF(NCST.LT.NCPS)CO T0310 
IP RO=i 
GOT0310 
C 
C 
C 

c mxntnuututt translate the process string 

c 

C TEST FOR EMPTY PROCESS STRING, BYPASS TRANSLATION. 

230 IF(NCST.ED.0)GOT0210 
C 

C DIAGNOSTIC: PRINT PROCESS STRING. 

IF(ITST.EO.Q)GOTO240 
ICIM-NCIM-NCST 

LSITE!A ,90)ICIM,(JCST(INDO),INOO'i,NCPSi 
C 

C TEST FO 9 NUMBER PROCESSING OR CHARACTER STRING PPOCFSSING 
240 IF((IALP EQ. 1) GP. (JCST(l) ,LE. JCAF AND JCST(l) Gl.JCAI)/ 

1 GOTOS00 





c 

c number processing 

ij 

c 

C INITIALIZE VARIABLES. 

400 IERS=0 
NFST=1 
NPRO^i 

1CIM=NCIM-NCST 
ISTO=0 
ESIO=0 
DST0=G. 

DFCT=i 

E3GN~1 

NSGN=1 

C 

C PROCESS INTEGER PORTION. 

C 

C TEST FOR MINUS SIGN. 

IF (JCST (NP RO). NE. JCfil) GOT0410 
NPRO=NPRO+i 
NSGN=-1 
NFST-KPRO 
GOT 0420 
C 

C TEST FOP. PLUS SIGN. 

410 IF(JCST(KPRO).NE.JCPL >GOT0420 
NPPO=N?RO+l 
NFST=NPP,0 
C 

C DETERMINE LENGTH OF INTEGER PORTION. 

420 IF(.NOT.(JCST(NPRO).LE.JCNF.AND.JCST(NPRO).GE.JCNI))GOT0423 
NPRQ=NPEO+i 
GOT0420 
C 

C STORE INTEGER PORTION. 

423 «CCT=NPRO-NFST 

IF(NCCT.EO.0)GOTO430 
NNTF-l + dtCCT-l )/NCIU 
NCL«=NCCT-NCIM*(NUTF-i) 

DO424JND0=l,NUTF 

NCTF=NCrJ-(NCI l l-NCLU)*(INDO/NWTF) 

NLSI^riFSHNCTF-1 

ENCODE(NCTF ,150 , JCTr) (JCSTUND1), IHDl-NfST,WLST) 

DECODE ( CCTr, 130, JCTT ) (JNIJ.K HUM) , IfIDi -1 ,NC IF) 

NF t T=N1.3 T *1 
D3424IN[>l r l ,NCTF 

EXPN-1 0**(* , OCT-IrtI/l-NCI!!*( I.ND0-!)) 





C'i try 


ISTO=ISTO+MJH(INDi)*EXPN 
424 CONTINUE 
C 

C PROCESS DECIMAL PORTION. 

C 

C TEST FOP, DECIMAL POINT. 

■120 IF (JC3T (NPRO). NE. JCDP) GOTO ISO 
NPRO-NPRO+1 
NFST=K?RQ 
C 

C DETERMINE LENGTH OF DECIMAL PORTION. 

440 IF(.NOT.(JCST(NPRO).LE JCNF.AND.JCST(NPRO) .GE.JCNI))G0T0442 
NPRO=N?RO+l 
GOT 0440 
C 

C STORE DECIMAL PORTION. 

442 NCCT=NPRO-NFST 

IF(NCCT.EO.O)GOT04SO 
NUTF=i+(NCCT-i)/KCIU 
NCLW=NCCT-NCIW*(NWTF-i) 

D0444INDO=1,NUTF 

NCTF=NCI !•!-( MCIU-NClW)* (INDO/NUTF) 

NLST=NFST+NCTF-i 

ENCGDE(NCTF,iSD,JC7F> (JCSTdNDi), INDJ =NFST,NLST) 

DECODE(NCTF,140,JCTF)(RNUM(1ND1),IND1-1,NCIF) 

NFST=NLST+i 

D0444INDi=i,NCTF 

DFCT=DFCT*.i 

DSTO=DSTO+BFCT*RNUM(INDi) 

444 CONTINUE 

TEST FOR SYNTAX ERROR IN MANTISSA. 

450 IF(NPRO.GT.NCST)G0T048D 

IF(JCST(NPRO).EQ.JCAE)COTO460 

GOT04SO 
C 

C PROCESS EXPONENT. 

C 

4L0 NPRO-NPRO+t 
NFST-NPRO 

C TEST FOR MINOS SION 

IF(JCST(NPRO).ME.JCHI)GQ104AS 

ESGN=-1 

.'-PRO-NrPO + l 

-FST-'PPO 

T0T04T ') 


V/ 






C TEST FOR PLUS SIGN. 

4f>5 IF (JCST(NPRO).ME, JCPL)GOTO!/0 
NPRO=NPRO+i 
NFST=N?RQ 
C 

C DETERMINE LENGTH OF EXPONENT. 

470 IF C .HOT. (JCST (NPRO) .LE.JCNF.AND.JCST(NPRO) .GE.JCNI))GQT047 
NPRO=NPRO+i 
G0T047D 
C 

C STORE EXPONENT. 

472 NCCT=NPRO-NFST 

IF(NCCT.EQ.O)GOT047S 
NUTF=i+(NCCT-i)/MCIW 
NCLU=NCCT-NCIU*(NWTF-i) 

D0474INBO=i,NUTF 

NCTF=HCIU-( NCItJ-NCLW)*(INDO/NUTF) 

NLET=NFST +NCTF-i 

ENCODE (MCTF, 150, JCTF) (JCST tINDi), IK'Di-NFST, NLST) 

DECODE(NCTF,i30,JCTF»(JNUM(IND1),iNDi=i,NCTF) 

NFST=NLST+i 
D0474INDi=i,NCTF 

EXPN=10«(NCCT-INDl-r/CIl;*<INM-i)) 

ESTO=ESTO+JNUii(INDi )4EXPH 

474 CONTINUE 
C 

C TEST FOR SYNTAX ERROR IN EXPONENT. 

475 IF(NPRO.GT.NCST)GOTO480 
IERR=2 

C 

r. CONFUTE NUMBER AND STORE IN VA'JJ ARRAY. 

i; 

480 IWAL=NVAL+1 

IF (IERR. NE. 0 )G0T04E(5 
C 

C STORE VALID NUMBER. 

VAL.U t NVAL)=riSGN H < FLOAT (ISTO) +DSTO) «10. ** (ESGN*ESTO) 

C 

C RET UP fl TO BEGINNING OF PROCESS STRING LOOP. 

GOIO210 

C 

C PROCESS ERROR 

C 

C STORE BLANK. 

485 VALU(NVAL> r lH 







URITE(MO) 

WRITER,80) 

WRITE(6,80) 

WRITE(6,70)NIKT 

WRITE(6,80)(JCI«(IHD0),I»D0=i > NCPI) 

WRITE(6 >90)ICIM,< JCST(INBO),IND 0=1,NCFS) 

WRITE(6,iO0) 

C 

C RETURN TO BEGINNING OF PROCESS STRING LOOP. 

GOT021O 

C 

c 

c 

c ttmtutunttm character string processing nttntttttmnm 

ij 

c 

C PLACE CHARACTER STRING IN CALL) USING ENCODE. 

S00 MCTF=NCRH*(i+(HCST-i)/NCRW) 

ENCODE(NCTF,i0,VALU(NVAL+i))(JCST(INDO),IND0=i,NCST) 
i; 

C ADJUST NUAL. 

NVAL r NVAL+i+ (NCST-i)/NCPtl 
C 

C RETURN TO BEGINNING OF PROCESS STRING LOOP. 

GOT0210 
C 
C 
C 

C END OF SEQUENCE STRING, RETURN TO CALLING PROGRAM UNIT. 

i: 

260 IF(ITST.EQ.0)COT0270 
URITE(fc,iiO) 

!-JRITE(6,30) 

C 

C 

C 

271) RETURN 
END 
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